home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / pegamail / pmfxuucp / source / debug2.bas next >
Encoding:
BASIC Source File  |  1994-07-15  |  1.8 KB  |  40 lines
  1. CLS
  2. FORM$ = "\        \  \      \  \      \  #######  ##!## ####### ####### ### #####"
  3. OPEN "i", #1, "f:\fx\uucico"
  4. OPEN "a", #2, "f:\fx\time.log"
  5. WHILE NOT EOF(1)
  6.         LINE INPUT #1, a$
  7.         IF MID$(a$, 3, 1) = ":" THEN
  8.                 IF INSTR(a$, "Talking to:") > 1 THEN first$ = LEFT$(a$, 9)
  9.                 IF INSTR(a$, "bytes sent") > 1 THEN
  10.                         b$ = MID$(a$, 10)
  11.                         x = INSTR(b$, " bytes")
  12.                         sent = VAL(LEFT$(b$, x))
  13.                         x = INSTR(b$, ",") + 1
  14.                         b$ = MID$(b$, x)
  15.                         x = INSTR(b$, " rece")
  16.                         recv = VAL(LEFT$(b$, x))
  17.                         x = INSTR(b$, ",") + 1
  18.                         b$ = MID$(b$, x)
  19.                         x = INSTR(b$, " error")
  20.                         xerror = VAL(LEFT$(b$, x))
  21.                         x = INSTR(b$, ",") + 5
  22.                         b$ = MID$(b$, x)
  23.                         x = INSTR(b$, " cps")
  24.                         avspd = VAL(LEFT$(b$, x))
  25.                 END IF
  26.                 IF INSTR(a$, "connections made") > 1 THEN last$ = LEFT$(a$, 9)
  27.         END IF
  28. WEND
  29. IF last$ > "" THEN
  30.         START = VAL(LEFT$(first$, 2)) * 3600 + VAL(MID$(first$, 4, 2)) * 60 + VAL(MID$(first$, 7, 2))
  31.         DONE = VAL(LEFT$(last$, 2)) * 3600 + VAL(MID$(last$, 4, 2)) * 60 + VAL(MID$(last$, 7, 2))
  32.         SEC = DONE - START
  33.         DATE2$ = LEFT$(DATE$, 2) + "/" + MID$(DATE$, 4, 2) + "/" + MID$(DATE$, 7)
  34.         PRINT USING FORM$; DATE2$; first$; last$; SEC; INT(SEC / 60); ":"; INT((SEC MOD 60)); sent; recv; xerror; avspd
  35.         PRINT #2, USING FORM$; DATE2$; first$; last$; SEC; INT(SEC / 60); ":"; INT((SEC MOD 60)); sent; recv; xerror; avspd
  36. END IF
  37. CLOSE
  38. END
  39.  
  40.